MIDIOutDevice
(Property)
Purpose: Returns and sets MIDI-thru.
Syntax:
BoolVar = CtlName.MIDIThru
CtlName.MIDIThru = BoolVar
Arguments: None.
Example:
'Play through the PC
Private Sub
Command1_Click()
____SoundCard1.MIDIThru
= True
____SoundCard1.MIDIOutputOpen
____SoundCard1.MIDIInputOpen
End Sub
'Turn it off again
Private Sub
Command2_Click()
____SoundCard1.MIDIInputClose
____SoundCard1.MIDIOutputClose
End Sub
Comments: As shown in the example above, MIDI-Input and MIDI-Output must be open to get any sound.
See Also: